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ABSTRACT: The Warren abstract machine (VfAM) has 
become a generally accepted standard Prolog 
implementation technique. Garbage collection is an 
important aspect in the implementation of any Prolog 
system, A synopsis of the WAM is presented and theit 
marking and compaction algorithms are shown that take 
advantage ofWAM's unique use of the data areas. Marking 
and compaction are performed on both the heap and the 
trail; both use pointer reversal techniques, which obviate the 
need for extra stack space. However, two bits for every 
pointer on the heap are reserved for the garbage collection 
algorithm. The algorithm can work on segments of the heap, - 
which may lead to a significant reduction of the total 
garbage collection time. The time of the algorithms are 
linear in the size of the areas. 

INTRODUCTION 

A variety of techniques, such as tail recursion optimi- 
zation, have been developed in an effort to minimize 
memory consumption. However, none of these tech- 
niques have reduced the amount of garbage enough to 
reduce the role of garbage collection in Prolog. In devel- 
oping an algorithm, one must keep in mind that the 
heap is used in a stack fashion; i( grows during forward 
execution and is unwound during backtracking. This 
requires a garbage collection algorithm that maintains 
the order of data created on the heap. The main algo- 
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rithms in this paper are linear, requiring two bits per 
word of pointer storage. The ideas of segmented garbage 
collection (6. 13| are incorporated in the design. The 
algorithms are for use by a single processor system. 

The rest of the article is organized as follows: Hrst a 
synopsis of Warren's Prolog implementation, the War- 
ren abstract machine (WAM). is given. Then a general 
marking and compaction algorithm is described. As a 
first optimization of the algorithm, it is shown how to 
use the trail information to increase the amount of de- 
tectable garbage and how to compact the trail. Finally, 
segmented garbage collection, a method for reducing 
the search space, is discussed. 

SYNOPSIS OF THE WAM 

In 1983, Warren published a description of an abstract 
machine for Prolog execution [16). The paper describes 
an instruction set and several data areas that the in> 
structions operate on. The Instructions are oriented to- 
ward the source language rather than toward the target 
machine. Thus an abstract instruction usually corre- ' 
sponds to a source program symbol, but may involve a 
large, even unbounded, number of machine operations.- 

Warren's instruction set has since become generally 
accepted as the standard Prolog implementation tech* 
nique and has been realized both by bytecode emula- 
tors, coropiiation into native instructions, and emula- 
tion in firmware and hardware. We do not contemplate 
these techniques further. 
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Several authors have described optimized or ex- 
tended versions of the WAM This paper contains a 
condensed description of a somewhat simplified WAM. 
For instance, we do not treat all instructions, nor their 
complete semantics. A more detailed description of 
WAM may be found in Gabriel (7] and Warren (16). 

Data Areas 

The data areas are the code urea, containing the pro- 
gram itself, the control orea, containing the abstract ma- 
chine registers, and three areas operated as stacks. The 
{local) stack contains InformatJon pertaining io back- 
tracking and recursive procedure invocations. The 
global stack or heap contains structures, lists, and value 
cells created by Prolog execution. The trail slack con* 
tains references to conditionally bound variables, that 
is, it records such bindings that have to be undone 
upon backtracking. (See Figure 1,) The stack is assumed 
to grow in the positive direction, toward higher ad- 
dresses, which is downward in our .figures. The first 
cell of the heap, the stack and the trail are called 
heap-aow, sta'ck-Jow, and trail-low, respec- 
tively.. 




RGtIRE I. Three Data Areas Operated as Stacks 
The Heap 

An important concept is that of a value celt. A value cell 
stores a Prolog term and consists of a tag, a value, and 
two bits used in garbage collection. The heap consists 
exclusively of value cells. There are value cells on the 
stack as well. The following rules govern how value ' 
cells may refer to one another. 

(1) A heap cell may only refer to another heap cell. 

(2) A stack cell may refer to an earlier stack cell or to 
a heap cell. 

A possible pseudo-C declaration for value cells could 
be 

struct valuecell ( 
Int tag: 2; 

struct valuecell *value:26 7 
bool n; 1 ; 
bool f : 1 ; 

h 



During the marking phase, the m bit is set Goir the 
marked value cells, whereas the f bit distinguishes the 
first cell of a structure or list. Both bits are initially 
FALSE. The tag distinguishes the type of the term, the 
main types being references (Var), structures (STRUCT), 
lists (LIST), and constanU (cokst). An unbound vari- 
able is represented as a reference to itself. A value cell 
tagged as a variable but not pointing to itself represents 
a bound variable. Structures are created by explicitly 
copying the functor and arguments into consecutive 
value cells on the heap. The value part of the functor 
value cell encodes its function symbol /and arity it. 
Functors are written as //n. Lists are created similarly, 
except that no functor needs to be stored. This tech- 
• nique for creating structures and lists is known as struc- 
ture copying. For constants, the value field refers to 
something outside the scope of garbage collection; that 
is, the cell either points to a static area or contains a 
static value, for example, an integer. In any case,* the 
contents of the cell are ignored by garbage collection. 
We depict the different types of terras as shown in 
Figure 2. Note that a variable may point at an individ- 
ual element of a list or a structure, but may not point at 
the first component of a structure, that is, at the hinc- 
tor. 

The Control Area 

This area consists of pointers into the other areas plus a 
scratchpad register bank for passing arguments and for 
temporary usage. The contents of the control area regis- 
ters define the computation state. In the rest of this 
paper, we treat the control area registers as if they were 
globally accessible machine registers. Indeed, that is 
how they are typically implemented. 

struct warn | 
struct code 

/♦ program pointer */ 
struct code *Li 

/* continuation program pointer •/ 
struct environment *E; 

/* current environment */ 
struct warn ♦B; 

/* current choice point */ 
struct valuecell **T; 

/* top of trail stack ♦/ 
struct valuecell *H} 

/* top of heap */ 
struct valuecell A [m\ ; 

/* m argument registers */ 

I; 

where m is a suitable number defining the arity limit of 
functors and predicates. 

A few words about C syntax and semantics: The dec- 
laration struct warn ♦B? means that Bis a pointer 
to a saved WAM slate. Since B is such a pointer, then 
B p Is the P component of that structure. The decla- 
ration struct valuecell **T; means that T is a 
pointer to a pointer to a value cell. Dereferencing one 
step is done by «T, which is just a pointer to a value cell. 
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There are two more items that are used over short 
sequences of Instructions. 

struct valuecell *S; 

/* current structure ♦/ 
bool RW: 1; 

/♦ read or write mode bit */ 

However* these are never valid when garbage collec- 
tion occurs and so are not included in the struct 
warn definition. 



The Local Stack 

The local stack contains two kinds of structures: tmU 
ronments and choice points. An environment represents a 
list of goals still to be executed. It consists of a number 
k of local variables occurring in the body of a clause 
plus a pointer into the body of a continuation clause 
and its environment A local variable may be unbound, 
in which case it points to itself just like unbound heap 
variables. Unbound variables on the stack save heap 
storage but complicate the instruction set somewhat. 
We ignore these complications in this description. 

Environments are only needed for qiauses with more 
than one body ^al and are established when entering 
such clauses. They are (logically) discarded before exe- 
cuting the last body eoal- The format of an environment 
is 

struct environnent | 
struct code *CLj 

/♦ continuation program pointer */ 
struct environment *CEi 

/* continuation environment */ 
struct valuecell Y[k)', 
)i 

An envimnment can he active or inactive. An active 
environment is in the current execution path, in which 
case it is in the chain formed by the CE fields. An 
inactive environment is one that is associated with a 
clause that has finished execution, but may be reacti- 
vated upon backtracking. In this case it is only reach- 
able via a choice point. Since an environment refers to 
its parent environment and several environments may 
have the same parent, the environments form a tree 
which has oiie active leaf, E, and zero or more Inactive 
leaves. 

Figure 3 shows the tree structure of the stack and the 
trail. A rectangle denotes an environment, whereas a 



rounded rectanglR denotes a choice point. A diamond 
denotes a trail cell, which in turn points either to the 
stack or to the heap [not shown in the figure]. 

A choice point Is established when entering a proce- 
dure Q with n arguments that has more than one clause 
that could match the goal. It consists of a snapshot of 
the control area. Thus the format of a choice point is a 
struct warn, except the argument registers A contain a 
copy of the n arguments of Q, and the P component 
represents the next possibly matching clause. A choice 
point contains enough information for restoring the 
state of computation to the state before entering Q. 
When no more alternatives remain, the choice point is 
discarded. 




HGUREl The Trail and the Tree Stnicture of the Stack 

All choice points form a list linked by the B fields. 

Note that the top of local stack is not recorded explic- 
itly. Instead, when an environment or a choice point is 
established, it is placed at the next free location, com- 
puted as 

inax(B, E + env_size(L)) 

where env^size (L) refers to the second operand of 
the call instruction (see below) pointed to by the con; 
tinuation program counter, as this indicates the size of 
the current environment. Thus a choice point ''freezes" 
all existing structures on the local stack, preventing 
them from being physically deallocated or written over. 
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The Trail 

This area records conditionai variable bindings. A vari* 
able is conditionally bound if and only if the variable is 
older than the latest choice point. For heap variables, 
WAM compares the address of the variable with the 
H field of the latest choice point. For stack variables, 
the address of the variable is compared with (he ad- 
dress of the latest choice point, that is, with B. Upon 
backtracking, entries are simply popped off of the trail 
stack and the bound variables are reset to unbound 

Treatment of Variables 

The abstract machine distinguishes two kinds of vari- 
ables. A permancnl variable is one that occurs in more 
than one body goal, counting the head as part of the 
first body goal. Thus a permanent variable has to be 
kept across one or more procedure calls, and so needs 
an environment slot. Slots are assigned in such a way 
that they can be discarded as early as possible: the 
permanent variable whose last occurrence is earliest 
will get the slot with the highest location. Thus envi- 
ronments shrink by zero or more slots for each body 
goal, releasing local stack space piecewise rather than 
an environment at a time. This optimization is.called 
"environment trimming** and generalizes tail recursion 
optimization. 

A temporary variable is any variable not classified as 
permanent. Temporary variables temporarily hold data 
during unification and are used for passing arguments 
in procedure calls. Procedures do not need to preserve 
temporary variables. 

Consider, for example, the clause 

p(A,B,SO,S) 

q(A.B,C,C), r(S0,S1), r(S1,S). 

where A, B, and C are temporary and all other variables 
are permanent. 

THE INSTRUCTION SET 

Prolog programs compile into sequences of instructions, 
approximately one instruction per Prolog symbol. In- 
structions can take up to two operands, identifying tem- 
porary variables (Xi), permanent variables (Yi), small 
integers (N), constants (C). functors (P), and procedures 
(P). The instruction set is classified into gef, put, unify, 
procedurul, and indexing instructions. We consider the 
following example when discussing the instruction set. 
For reasons of space, formal definitions of the instruc- 
tions cannot be included. 

1. concatenate ( ( |,L,L). 

2, concatenate( (XjLI | .L2, (X|L3) ) 

concatenate(Ll ,L2 ,L3) . 

A naive assignment of temporary variables in clause 2 
is to reserve XT-X3 for the arguments and X4-X7 for 
X. LI. L2, and L3, respectively. There are no perma- 
nent variables. 



Get Instructions 

Get instructions correspond to head arguments. They 
match against- the procedure's arguments, passed in ar- 
gument registers: 

get-varlable Vn,Al 

% Vn is assigned the value of Ai 
get— value Vn,Ai 

% The values of Vn and Ai are unified 
get— constant C|Ai 

% The value of Ai is unified with the constant C 
get-Ail Ai 

% The value of Ai is unified with the constant ( | 
get— structure r,Ai 

% The value of Ai is unified with the structure F(. .) 
get-list Ai 

% The value of Ai is unified with a list 

Here, Ai denotes an argument register, which is just 
another name for a temporary variable. The abbrevia* 
tion vn denotes a permanent or temporary variable. 
The suffix (constant, list, etc.) suggests what the 
argument should match. The variable suffix stands 
for the first occurrence of a variable; value is used for 
subsequent occurrences. 
The head arguments of clause 2 compile to 

get— list AI % concatenate <( 

unify-variable X4 % xj' 

unify— variable X5 % 

get-variable X6,A2 % h2, 

get-list A3 % I 

unify-value X4 % x| 

unify— variable X7 % t31) 

Put Instructions 

Put instructions correspond to body arguments. They 
load arguments into argument registers. 

put— variable Vn,Ai 

% Vn and Ai are assigned a new variable 
put— value Vn,Ai 

% Ai is assigned the value of Vn 
put-constant C,Ai 

% Ai is assigned the constant C 
put-nil Ai 

% Ai is assigned the constant ( ) 
put-Structure F,Ai 

% Ai is assigned the structure P( . . ) 
put-list Ai 

% Ai is assigned a list 

The arguments of the goal of clause 2 compile to 

put-value X5,A1 % concatenate (Li, 
put- value X6,A2 % L2, 
put-value X7,A3 % L3) 
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Unify Instructions 

Unify instrufttinns cnrrespond to argument's of a Vint or 
Structure and operate in read mode or write mode, as 
indicated by the RW bit. If Ai contains a structure with 
functor F/n, the instruction get, structure P^. 
ki will put WAM in read mode and set the S register 
pointing at the arguments. Following the get instruc- 
tion, n unify instructions will match subterms accessed 
via the S register, running in read mode. If, instead, Ai 
contains an uninstantiated variable, the get instruction 
will bind this variable to a structure that is about to be 
created, place r/n at the top of the heap, and put WAM 
in write mode. The unify instructions will fill in the 
subterms. running in write mode. 

The get_llst instruction operates similarly. The 
put-^tructure and put^ist instructions always 
put WAM in write mode. 

read mode semantics 

unlfy^vartable Vn 

% Vn Is assigned the next subterm 
unlfy^value Vn 

% The value of Vn is unified with the next subterm 
unlfy^onstant C 

% The next subterm is uniEed with the constant C 
unify_nll 

% The next subterm is unified with the constant ( ] 

write mode semantics 

unify^variable Vn 

% A new variable is slored in Vn and as the next 
subterm 
unify—value Vn 

% The value of Vn is stored as the next subterm 
unify^constant C 

% The constant C is stored as the next subterm 
unify^il 

% The constant I ] is stored as the next subterm 

Note that there are no unify instructions for lists or 
structures, as they would require extensions to the 
WAM data areas or registers. Instead, structures are 
"flattened" by introducing temporary variables. For in- 
stance, a head 



P(ld{0,a))) 



could compile to 



getjist Ai 
unify—variable X j 
unify-nil 



% P (( 
% 
% 



T1 



get-structure d/2,Xj % Tl=d< 
unify.constant 0 % 
unif y^constant a % 

As a goal, it could compile to 



1) 

0, 
a) 



put^structure d/2, Xj 
unify.constant 0 
unify.constant a 
put-list Ai 
unify.value X j 
unify^nil 



% T1 = at 

* a), 
% P(( 

% T1 
% 1) 



Procedural Instructions 

These instructions correspond to the head and goals of 
a clause. They deal with control transfer and environ- 
ment handling: 

proceed 

% branch to the continuation program pointer 
execute Q 

% branch to the procedure Q 
call Q, N 

% set the continuation program pointer at the next 

% instruction, 

% then branch to the procedure Q 
allocate 

% establish an environment on the stack 
deallocate 

% logically discard an environment 

Clauses with zero, one, or more goals are translated 
according to the pattern: 

f*' P:-C. r:-C.H,K. 

ifi arg^ of r get args ofr allocate 
proceed putargsofG getargsofT 
execute G pul args of 6 
callG,N 
pul ar^sofH 
callH.Nl 
put args of K 
deallocate 
execute K 

where N a Nl Indicate the size of the part of the cur- 
rent environment which is active after the call in- 
.struction. Thus N permanent variables are live after the 
first call; Nl are live after the second call. It is this 
operand which is referred to as env-size( L) in the 
description of the local stack above. 

Indexing Instructions 

For a given call, these instructions filter out the set of 
possibly matching clauses of a procedure. This function 
is based on the principal functor of the first argument. 
It is guaranteed that alt possible matches can be even* 
tuaily tried by backtracking. There are two kinds of 
indexing instructions: instructions that discriminate on 
the first argument, 

switch— on— term Lvar , Lconst , Lliot , Lstruct 
% dispatch on the type of the first argument 
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switch«on^constant N, Table 

% dispatch on the value of the first argument, 
or fail if not found 
switch«on-structure N , Table 

% dispatch on the principal functor of the first 
argument, or fail 

and instructions that backtrack over alternatives, 

try^e.else L 

% a new alternative program point is L 
retry-.me_else L 

% set ahernative program point to L 
trust_me_else-fail 

% discard latest alternative program point 

try L 

% the next instruction is a new alternative program 
point, goto L 
retry h 

% the next instruction replaces alternative program 
point, goto L 
trust L 

% discard latest alternative program point, goto L 

The clauses of concatenate/ 3 are linked together 
as follows: 

switch_on_term $l , $2, $4, fail* 
$1: try_me_else $3 
$2: /♦ the code for clause #1 */ 
$3 : tru5t.aie.else.f ail 
S4: /* the code for clause #2 */ 

The first instruction does a four*way dispatch on the 
type of the first argument: if it is a variable, both 
clauses are possible and so the try^e.else instruc* 
tion establishes a choice point whose alternative label 
i$ $3 before executing clause l. If WAM backtracks, the 
trust«.me^else^f ail instruction will arase the 
choice point. If the first argument is, respectively, a 
constant or a list, then the only possible alternatives are 
clause 1 or 2 (label $2 or $4). respectively. If it is a 
structure, the call fails. 

The retry.me.else instruction is used for alter- 
natives exnnpl the first and last ones. 

The other switch instructions are used when there 
are several clauses with a constant or a structure as 
first head argument, respectively. These instructions 
provide further filtering of the set of possible matches 
by doing a hash table lookup with the principal functor 
as key. 

The try/retry/trust instructions are used when 
there are several clauses with a first head argument 
with the same principal functor. 

Compiler Optimizations 

There are several opportunities for compiler optimiza- 
tions. For instance, the two instructions 

get.variable Xj,Aj 
put_value Xj.Aj 



represent noops and can be deleted, and a compiler 
could try to minimize the size of the emitted code by 
properly allocating temporary variables. Thus an opti- 
mized version of clause Z above is 



% concatenate ( ( 
% XI 

% i 



get.li8t Al 
unify.variable X4 
unif /.variable a I 
9et.list A3 
unify.valuc X4 

.unify.„varlable A2 

% t3J) 
execute concatenate/3 

* concatenate (Ll, l2, 1.3). 

This version Is four instructions shorter than the naive 
translation given earlier. 

BASIC GARBAGE COLLECTION ALGORITHM 
We first describe a rudimentary garbage collection algo* 
rithm, and in the subsequent sections we enhance it to 
take more advantage of the specific properties of Prolog. 
Our garbage collection algorithm consists of marking 
and compaction. 

The Marking Fhaae 

During this phase all reachable ubjecls from a set of 
roots are marked by setting the m*bits of the value 
cells. The f-bit is initially FALSE but is temporarily 
used and reset to FALSE at the end of the marking 
phase. 

Prerequisites for the marking phase. In the original 
WAM, some value cells on the stack may be uninitial* 
ized. A straightforward way to eiuure that every envi- 
ronment is fully Initialized at every procedure call re* 
quires the following changes in the WAM (6]: 

(1) All environment slots are initialized to unbound 
before the first call by inserting sufficient 
put-, variable Yn instructions. 

(2) As a compensation we may optimize the WAM 
code after the first call by changing every 
put- variable Yn into put_value Yn. 

(3) In the body of a clause the semantics of 
unify^variable Yn are modified so that Yn is 
trailed If the computation is in a nondeterminisiic 
state. This will ensure that the variable will be reset 
on backtracking, thus avoiding the possibility of 
dangling references. 

In the following we assume that garbage collection is 
triggered at a well-defined point, for instance, just after 
the call Instruction. The arity of the predicate called 
indicates the number of active argument registers. 
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The Marking Algorithm 
I 

mdrk.re9isters( ) ; 

/♦ the A registers ♦/ 
mark.environfflents(E, Env.slze (L)); 

/• active environments ♦/ 
mark.choicepoints(B) ; 

/* choice points and environfflente 
reachable from choice points */ 

First all structures on the heap accessible from the 
active argument registers are marked. Since most com- 
puter architectures cannot handle a reference to a reg* 
isler and the mark.variabXe routine (defined later) 
takes a reference to a value cell, each register is Ant 
moved to the local variable temp. The notation Stemp 
used below means the address of temp. 

nark^registers () 

I 

struct Vdluecell temp,- 

n « number of active registers A; 

for i * 1 up to n 

if (A(i] points to a heap cell) 
( 

temp «= A(il ; 
mark.variable(&temp) ; 

) 

I 

Then all active environments are marked. The environ- 
ment size of E is computed as env.size (L). 

In Figure 4(a). the chain of active environments 
reachable from the current environment E is marked, 
Indicated Iby the shaded cells. From each choice point 
there is another chain of envlronmeats, as can be seen 
from the next figure. Some environments are only 
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reachable from the choice point (2) and some are 
shared (3. 4, 6). The first shared environment (3) is a bit 
special: some cells within it may only be reachable 
from the chain starling at the choice point. Those cells 
are always the last cells allocated in that environment. 

As illustrated by Figure 4(c). only a part of the active 
environment slack needs marking when accessed from 
a choice point. In our marking algorithm this optimiza- 
tion is implemented by first checking to see whether 
the given sUck cell has already been marked; if it has, 
then we immediately stop marking that chain of envi- 
ronments. To make this work properly two observa- 
tions have to be made. 

(1) The value cells of each environment have to be 
traversed from high to low. that is. from the top of 
the stack toward the bottom. By doing so, we first 
encounter the possibly unmarked cells of a shared • 
environment. 

(2) When marking a value cell on the stack, a reference 
within the stack is ignored. This is quite safe lo do 
since WAM guarantees that all references within 
the stack are within the same chain of environ- 
ments. Thus the referenced ceil will be marked 
anyway. 

The routine that marks a chain of environments is 
called mark-environments : 

mark«environments(env, size) 
struct environment«env; 

int size; 
( 

while (env f* NULL) 
I 

for each v pointing to env — Yfsize] 
down to env ^ y [1 ) 
if (V — ro TRUE) 
return; 
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else if (V ^ value points to the 

heap) 

mark-.variable(v) ; 
size - env_size{env Cl») ; 
env » env — • CE; 
I 

1 

All choice points and the corresponding chains of envi* 
ronments are.marked by mark^choicepoints : 

mark^choicepoints { cp) 
struct wan *cp; 
I 

while <cp HULL) 
I 

iQar)c^environinents (cp env.size 
(cp-*.L)); 

for each v pointing to a valuecell in 
CP ^ A do 

if (V value points to the heap) 
mark-.variable< V) ; 
cp = cp — B ; 
) 

• I 

A note on the trail. Any variable recorded in the trail 
is also accessible from some choice point. Thus all vari- 
ables reachable from the trail have already been 
marked and the trail need not be scanned. Later, in the 
section, Early Reset of Variables, we elaborate further 
on this subject. 

Pittoravils et al. (13] present a similar way to traverse 
the environments and the choicepoints, but give no de- 
tails on how to mark the variables. Before we present 
the procedure mar k.vari able, some background in- 
formation on the marking phase is first given. Two con* 
cepts are of importance: chains and structures. A chain 
is a linked list of value cells. The cells of a chain are 
classified as follows. A head of chain is either a cell on 
the stack or any cell in a structure except (he first one. 
A last cell of chain is either a cell tagged as a CON- 
STANT or it is a cell previously investigated during the 



marking phase. An investigated cell either has its m«bit 
or f-bit set to TRUE. Any cell in a chain different from 
the head of the chain is called an internal ceil 

In WAM an unbound variable is represented by a cell 
pointing to itself. Such a cell forms a chain by itself, in 
which case the head and the last cell of the chain 
coincide. Figure 5 shows a chain starting from the stack 
where the last cell is a constant. The arcs of the chain 
are marked 1, 2. 3, 4. 

Although cyclic structures do not normally occur in 
Prolog, Figure 6 shows a chain starting from the second 
cell of a list and ending in a cell completing a cycle. 
The arcs of the chain are marked 1, 2. 3. Notice that the 
chain consists of four cells, the cell between arc 1 and 2 
is both the second and last cell of the chain. 

We are now ready to present the core of the marking 
algorithm, the procedure mark^variable. The fol* 
lowing algorithm uses a new pointer reversal algorithm 
especially adapted for WAM data structure. An extra 
stack is thus unnecessary. Also it is capable of marking 
cells within structures, creating situations where part of 
the structure is collected as garbage and part of it is not. 
This is important since pointers Into structures are 
quite frequent. 

The algorithm is described by a finite-state machine 
with two slates; forward and backward. (See Figure 7.) 
The forward phase traverses a chain of pointers that 
becomes reversed. During this phase, when an un- 
marked structure or list is reached, a return pointer to 
the current chain is saved in. the last cell of the struc- 
ture. We then continue the forward phase with a sub- 
chain originating in this cell. Alternatively, if a con- 
stant or a marked cell is encountered, the backward 
phase is entered. 

In the backward phase, pointer reversal is undone 
until we return to the starting point denoted by the 
head of the current chain. If this cell is the starting 
point of the whole marking phase, we are finished. 
Otherwise, the cell is a component of a structure and 
the traversal continues in the forward mode with the 
previous component in the structure. 
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FIGUAE 6. A Chain Ending in 0 Cell that Completes a Cyde 
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Two pointers for traversing the data structures are 
used during this phase: current and next. Current 
points to the cell currently being processed, whereas 
next contains the original value of what current 
pointed to. The following is a detailed description of the 
two phases of the marking algorithm. 

The Forward Phase 

Fnitially current points to a stack cell which has Its 
f-bit set. and next contains the value of that cell. Exe- 
cution may then enter the forward phase: 

(1) If current points to an unmarked VARIABLE 
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cell, we gef the state transition depleted by the follow- 
ing figure where shaded cells denote cells having their 
m-bit set and bold outlined cells denote cells having 
their f-bit set The f-bit is used to distinguish the "head 
of chain** from an internal cell. Note that the new cur- 
rent cell becomes marked as an internal cell. After the 
transition, execution continues in the fbn^'ard mode. 
Figure 8 shows several such transitions. 



(2) If current points to an unmarked STRUCTURE 
or an unmarked LIST, a fairly complicated transition 
takes place, as can be seen from Figure (9a). First the- 
current cell Is marked and all the components of the 
structure next points to are examined. If the second 
component has its f-bll set, the structure is already 
being traversed, and execution continues in the back- 
ward phase. Otherwise, the f-bit is set in all compo- 
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nents but the first. This indicates that all these compo- 
nents are heads of subchains. Thereafter the pointers 
are arranged so that execution may continue in the 
forward mode with current pointing to the last cell of 
Ihe structure. Figure 9(b) shows an example where 
current points to a list cell 

(3) If current points to a marked cell or an un- 
marked CONSTANT cell as shown in Figure 10, the 
current cell becomes marked if unmarked, and the 
backward phase is entered. 

The Backward Phase 

This phase resets the pointers of a chain to their origi- 
nal values. (See Figure 11.) All internal cells are re* 
versed uritil the "head of chain," which has Its f-bit set, 
is encountered. Since the f-bit now has fulfiHed its pur- . 
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pose (being the indicator for the "head of chain"), it is 
reset. We have then either arrived at the starling ceil of 
the call to mark^variable and the marking termi- 
nates, or it is a cell not being the fiist in a LIST or a 
STRUCTURE. In the latter case, as the cells of a struc- 
ture are investigated from the last to the first, current 
is advanced to point to the previous cell. The pointers 
are then arranged so that execution may continue in 
the forward mode; see Figure 12. 

Before we are ready to show the code for the 
mdrk.variable procedure, some help-macros need 
to be defined To simplify the definitions of those help- 
macros, a help*help*macro is first defined: 

(1) Svap3{x, /, z) means temp » x; 

X = y; y = z; z = temp; 

The help-macros then get the following definiUons: 

(2) Raverse(current, next) means Swdp3 
(next value, current, next). 

(3) Undo(current, next) means Swd*p3 (cur- 
rent—value, next, current). 

(4) Advance( current , next) means Swap3 
((current + 1 ) — , value, next, current 

— • value) . 

(5) Lastcell( current, next) returns a pointer 
to the last component of the structure current 
points to. It may be necessary to use next for this 
calculation as it contains the original value of cur- 
rent— .value, which contained the length of the 
structure. For a list, however, the address of the last 
component Is always next 1. 

During the marking, the number of marked cells 
is calculated by incrementing the variable 
total^niarked. in order not to count the cells on the 
stack, total^roarked is decremented at the start. 

inark»varlable( start) 

struct valuecell 'start; 
I 

struct valuecell 'current, *next; 
current = start; 
next - current — value; 
current f = TRUE; 
total-marked = total-.raarked - 1j 

/• don't count stack cells V 
goto forward 

forward: if (current m = TRUE) goto 
backward; 

current — . m « TRUE; 
total-marked « total_marked + 1; 
switch (current — tag) | 
case VARIABLE: 

/• transformation 1 */ 
if (next f a= TRUE) 

goto backward; 
Rever6e(current, next); 
goto forward; 
case STRUCTURE: 



/• transformation 2a V 
case LIST: 

/• transformation 2b V 

if ((next + 1) — £ TRUE) 

goto backward; 
/• setting the f-bits V 
for every cell in object referred 

by next, 
except the first component 

set f bit TRUE; 
next « Lastcell (current, next); 
Reverse (current, next); 
goto forward; 
case CONSTANT: 

/• transformation 3 */ 
goto backward; 
I . 

backward: if (current f FALSE) 
/' transformation 4 V 
{ /• internal cell V 
Undo(current, next); 
goto backward; 

I 

/• head of chain V 
current — . f * FALSE; 
if (current — start) 

return; 
current - current - 1 ; 

/• transformation 5 */ 
Advance(current , next); 
goto forward; 

I 

Optimizaiions of mark.variablo 
Each time an object is marked, all its components are 
individually investigated, regardless of whether the ob- 
ject has been marked before or not. It is wrong to as- 
sume that the whole object has been marked if a single 
component has been marked, since individual compo* 
nents may be marked if they are referred from VAR* 
cells. Investigating all the components may be time 
consuming, although the algorithm is still linear in 
principle. . 

In order to speed up execution, we may check all of 
the cells to see whether they are marked. The following 
code, inserted just before setting the f«bits of the com- 
ponents, will accomplish this: 

if (all cells in object referred by 
next have their m bit TRUE) 
goto backward; 

An even better solution is to use the observation that 
the first component of a structure may never be referred 
to directly from a VAR-cell, and thus may never be 
marked individually. Since the first cell is the last cell 
marked, it is sufficient to test this cell alone to know 
whether the siructure as a whole has boon marked. We 
then get the following piece of code which is inserted 
just before the setting of the f-bits: 
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it (current ^ tag » STRUCTURE AND 
next ^ m TRUE) 
goto backward; 

A corresponding optimization for LiSTs is not possible 
as the first component may be reached directly from a 
VAR-cell. 

Some Extreme Cases 

It is not immediately obvious that the marking algo- 
rithm is able to handle quite complex structures. We 
have already mentioned the ability of the algorithm to 
mark only those parts of a structure that are actually 
referred to. If the rest of the structure remains un* 
marked, those cells will be reclaimed later. (See Kig* 
ure 13.) A variant of this occurs when the first cell of a 
list is also referred to from a VAR (see Figure 14). 



from there leads to b and then back to c, which is still 
unmarked, although it is part of a structure being in- 
vestigated. The marking continues with e andTmally 
returns to a, which is marked so the backward mode is 
entered. 

On the other hand, if marking instead starts with b, 
passing through c, e, a and back to c, a cycle will not be 
formed until c. Although c is marked, we do not enter 
the backward mode here since d has not yet been 
marked. A trace of the execution would show that the 
marking algorithm is able to handle both these cases. 

A very special cyclic structure is an unbound vari- 
able (see Figure 16). Usually, it is represented by a cell 
pointing to itself. The marking algorithm needs no spe- 
cial code for this case, ahhough it might speed up exe- 
cution. 
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FIGURE 13. How the Marking Algorithm Handles Slmctures. (a) Onty the Parts of a Strveture Actually Referred are Marked, (b) All 

Components are IWarfced If there Is a STRUCT Pointer. 




(a) (b) 

RCiURE 14. How the Marfung Algorithm Handles Usts. (a) A VAR Pointer to the First Cell only Marks that Cell, (b) A UST Pomter to the Firet 

CeU Marks Both Cens. 



Although cyclic structures are seldom constructed in 
ordinary Prolog programs^ they do occur in some appli- 
cations. The marking algorithm handles them grace* 
fully, without treating them separately. When a marked ^ . 
cell is encountered, the marking algorithm enters the 
backward mode. 

Extra care was taken when constructing the algo- . 
rithm so that it would correctly handle cyclic struc* 
tures like the one shown in Figure 15. If the marking 
starts with cell a, it will first come to the two cells c 
and d. Since a composite obiect is always scanned back- 
ward, cell d will be investigated first. The reference 
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nGURE16. An Unbound Variable, a Special Cyc6c Structure 

Informal Correctness Proof of the 
Marking Algorithm 

It is guaranteed that the marking algorithm marks all 
reachable objects, resets all pointers to their original 
values, and terminates. The main complexity of the 
algnrithm Iirs in thn procedure inark.variables. 
No correctness proof is given here» but a sketch looks 
like this: 

The following preconditions for the forward and the 
backward phase are always maintained: 

(1) next always contains the original value of 
current*-* value. 

(2) current always points to a return-chain, where a 
return-chain is defined as follows: current is the 
end of a chain whose first cell has its f-bit set. This 
first cell is either the starting cell (start) or a com- 
ponent of a structure. In the latter case, that compo- 
nent refers back to the STRUCTURE or LIST value 
cell which originally pointed to the structure. Now 
that STRUCTURE or LIST cell is instead part of a 
return chain. All components with higher addresses 
are marked subtrees, as shown by Figure 17. All 
lower dbmponenls of the structure, besides the first, 
have their f-bits set. 

For the backward phase, the following is also always 
true. 

(3) next points to a marked subtree. 



It remains to show that the computation actually ter- 
minates. Once an object is encountered, it Is always 
marked. If a marked object is found, the marking enters 
backward phase. As no two retum-chains ever cross 
each other (thereby creating a loop) and there is only a 
finite number of cells, the computation must terminate. 

THE COMPACnON PHASE 
Our goal for the compaction phase was to find o linear 
algorithm that used no extra space. As in Pittomvils 
(13). our algorithm is based on Morris' algorithm (9), 
adapted for the Prolog environment. The algorithm is of 
order n, requiring two passes through the heap, one 
.pass throuf^ the troil, and one pass through tho stack. 
The heap is scanned, once to update upward pointers 
and once to update downward pointers. First the basic 
sweeping algorithm is described and then we make 
some additions to make it suitable for WAM. 

Compacting the Heap 

By sweeping the heap from low to high addresses, hav- 
ing a destination pointer which is incremented for each 
marked object encountered, it is possible to know the 
Hnal location of each object. Similarly, since we know 
how many value cells are marked, as calculated in 
totaX^marked, we can alternatively sweep the heap 
from high to low address. The main problem with the 
compaction phase is not, however, to calculate the 
final location of a certain cell, but to find and update 
all those cells pointing to this cell. A very natural 
solution would be to link all those value cells into a 
relocation chain, which can be scanned when the 
final destination of the cell is known. 

Figure 18(a] shows all variable cells pointing to the 
cell current. In Figure ia(b], all those cells are linked 
into a chain starting at current and ending with a cell 
containing the original value of current. A moment. of 
afterthought indicates, however, that this is not a possi- 
ble solution. Many cells contain pointers and thus need 
to be part of a relocation chain; however, at the same 



ti=u 




marked subtree 



C3-HZZ1 



marked subtrees 



RGURE17. A Typical Return-Chain 



The preconditions are easily shown to be true^ini- 
tially. By performing a case analysis, it can be shown 
that they are maintained throughout the computation. 
If the computation terminates, it will end in the back- 
ward mode, with current being the root of the mark- 
lag and next, that is, current--* value, pointing to a 
marked subtree. 



time they may be pointed to and thus need to be the 
head of another relocation chain! 

Morris' algorithm elegantly solves this apparent con- 
tradiction by allowing some value cells to be the head 
of relocation chains part of the time and to be members 
of relocation chains part of the time. As mentioned 
previously, compaction consists of two phases, ona up- 
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FIGURE 18. An Erroneous Attempt to Create a Relocation Chain, 
(a) Original SHiiatlon. (b) A Not Possible Relocation 
Chain for Current 



also regains its original VALUE; see Figure 20. 

The value of current is now inspected to see 
whether It Is an upward pointer. If so» the cell is 
linked into the relocation chain of (he object 
pointed to. This is done by calling 
intcrelocation»chain(current rvalue » 
current). 

Thereafter, current is advanced to point to the next 
marked value cell. In this simple example the remain- 
ing value cells all point downward and nothing more 
will happen during the upward phase. After the up- 
ward phase, all value cells pointing upward have their 
final correct values. 

The downward phase is almost a mirror image of the 
upward phase, scanning the heap in the opposite direc- 
tion. The difference is that all marked value cells, re- 
gardless of their contents, are moved to their new loca< 
tion and their cd and f bits are reset. There is no danger 
that moving a cell .will destroy any other cell, as the 
destination is always closer to the bottom of (he heap 
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(b) (c) 

RGURE 19. A Successful Attempt to Create a Relocation Chain, (a) Original Situation, (b) The First Vahiecell is Unked into the Relocation 

Chain, (c) The Neit Valuecell is Linked Into the Relocation Chain. 



ward sweep and one downward sweep. In the upward 
phase, the heap is scanned from high to low, and only ' 
marked value cells pointing upward are considered. 
Whenever such a cell is encountered, it is linked into 
the relocation chain of the cell it points to. The f-bit Is 
used to indicate that a cell is in a relocation chain. As 
before, such cells are shown with a bold outline in our 
figures. 

Each marked cell, regardless of its pointer value, is 
first checked to see whether it is the head of such a 
chain. If so, all members of the chain are updated to 
point to the new location of the cell. In this process, the 
cell also regains its original value. If the original value 
points upward, it must also be inserted into a relocation 
chain. Figure 19 shows a series of situations during the 
.upward phase as the pointer current passes through 
the heap, current is now the head of a relocation 
chain whose members will be updated to contain the 
future location of current. In this process' cur rent 
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FIGURE 20. Rnal Processing of a Relocation Chain. Ita Members 
are Assigned Their Firture Vahies. 
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than the source and all lower cells have already been 
moved. The downward phase resets all downward 
pointers. Thus, the downward phase In combination 
with the upward phase assures that all pointers are 
correctly reset. 

compact.heap( ) 

I * 

struct valuecell 'dest, 'current; 

/• the upward phase V 

dest « heapL.Iow + total-jnarked - 1 ; 

for current « H down to heap-low 

I 

if (current ^ m »= TRUE) 
I 

upddte«relocatlon.chain( cur rent , 
dest); 

if (current*-* value is a heap 
pointer) 
I 

if (current — » value < current) 
into.relocation_chain( current ^ 
value, current); 

else if (current — current --i 

value) 

/• a cell pointing to itself */ 
current -4 value = dest; 

1 

dest = dest 1 ; 
) 

I 

/• the downward phase V 
dest = heap^low; 
for current = heap^lov up to H 
I 

if (current — m = TRUE) 
I 

update— relocation.chain< current , 
dest); 

if (current value is a heap 
pointer AND 

current'-^ value > current) 

( 

/• move the current cell and in- 
sert it into the relocation 
chain V 

into^reloc4tion.chain( current 

value, dest) ; * 

dest — tag = current tag; 

I 

else 
( 

/• just move the current cell */ 
• dest — value = current — ► value; 
dest -« tag = current tag; 
dest ^ f » FALSE; 
I 

dest TO = FALSE; 
dest = dest + 1 ; 



I 

I 

I 

update-relocation-chain (current, dest) 

struct valuecell 'current, 'dest; 

I 

struct valuecell 'jj 

while (current — • if " TRUE) 

j = current — » value; 
current — value - j — « value; 
current — f « j f . 
i — value a dest; 
J f « FALSE; 



into_relocation_chain( j, current) 
struct valuecell 'j, 'current; 
I 

current — • value = j — ♦ value; 
current f = j — f ; 
j — value = current; 
j — f = TRUE; 

I 

Updating Pointers from Other Data Areas 
into the Heap 

As mentioned initially, the heap is not the only data 
area containing heap pointers. The stack, the trail, and 
the argument registers A also refer to the heap, and 
those pointers also have to be updated. By simply 
sweeping those areas looking for pointers into the heap 
and inserting those cells into the relocation chain, the 
compact.heap procedure will automatically update 
those references. 

The main procedure for the compaction then be- 
comes 

compaction.pha8e( ) 
I 

push^registers () ; 
sweep^trail {*) ; 
sweep__stack() ; 
compact-heap( ) ; 
pop.registers( ) ; 



Sweeping the Registers 

The registers are temporarily pushed onto (he trail so 
that they may be referred to from the heap. The up- 
dated registers are finally by pop^registers. 

push^registerso 
I 

n = number of active registers in A; 
for i 1 up to n 

push.on^trail(A(i| ) ; 

1 

pop_registers() 
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n ^ number of active registers In A; 
for 1 « n down to 1 

All) B pop^from.trall() ; 

I 

Sweeping the Trail 

The procedure sweep^trall inserU the cells of the 
trail into the relocation chains. Note that the registers 
being pushed onto the trail will be handled here also. 

sweep^trailO 

( ' , 

Struct valuecell '^current; 
for current « T down to tralLXow 
If (('current) Is a heap pointer) 

lnto^relocatioru.chain( (^current) , 

current) ; 



Sweeping the Stack 

sweep^stack calls both sweep^envlronments and 
sweep^choicepolnts in a manner very similar to 
the marking phase. One difference is that the in bits are 
reset during the traversal, so that upon completion all 
m bits are reset in the stack. If an unmarked variable is 
encountered in sweep.envlronments, the proce- 
dure returns immediately since that environment must 
already have been encountered. 

Extra care has to be taken with the saved top-of-heap 
pointers in the choice points, that is, the H component 
of a choice point. This pointer indicates how far to reset 
the' top of heap on backtracking. Since the obje.cts in 
the heap may move, it may also be necessary to update 
this pointer. Il is not sufficient just to insert the H com- 
ponent into the relocation chain of the value cell re- 
ferred because that cell may be unmarked. A simple 
and effective solution to this problem is simply to mark 
that cell and insert something harmless there, for in- 
stance, NIL, 

Alternatively, the heap may be searched until a 



marked object is found and then the H component 
changed to point to that object Instead. The advantage 
of the former solution is that no search is needed, 
whereas the latter avoids allocating an extra cell. (See 
Figure 21.) 

The best solution is probably a compromise, where 
the heap is searched for a limited number of cells, and 
only if no marked cell is found is an unmarked cell 
then marked. 

For simplicity, the code presented here uses the first 
alternative. 

sweep.stack( ) 
I 

sweep-environments (E, env«size (L)); 

sweep-.cholcepolnt8(B) ; 

I 

sweep^envlronments(env, size) 
struct environment *envf 
Int size; 
I 

while (env NULL) 
I 

for each v pointing to a valuecell 
in env ^ y 

scan the 'size' number of cells 
from high to low 

if (v — . value points to the 
heap) 

I 

If (V — m ~ FALSE) 

/• we have already been here V 

return; 
else 

I 

V — . m =. FALSE; 
Into.relocatlon.chain 
(V -* value, v) ; 
I 
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(b) (c) 
FIGURE 21. Handling References to tJnmarked Cells in the Heap, (a) Problem: CP b.h Points to an Unmadced Cell, (b) Solution 1: 

Maif( the CelK (c) Solution 2: Find a Marked CeiL 
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size - env.slze(env ^ ct); 
env = env — # cEj 



sweep.chpi cepoln fcs ( cp) 
struct warn *cp; 
I 

while (CP ^ KULL) 
I 

sweep.environments(cp env^size 
(CP — L)); 

for each v pointing to a va'luecell 
in cp ^ A do 

if (V— value points to the heap) 
( 

V — » m = FALSE; 
into.relocation_chain 
(V — . value, V) ? 
I 

if (cp H -t^ ID FALSE) 
I 

/* create a dununy constant on the 

heap V 
cp ^ H — value « NIL; 
cp — H ^ tag = CONSTANTS- 
CP ^ H m » TRUE; 
cp « H — f - FALSEi 
total—marked = total—marked + 1; 



I 



into.relocation^chain 
(CP - H, &(cp - H))f 
cp » cp B; 
I 



As already mentioned, the notation &(cp^H) means 
the adrfrws of (cp— »H), 

Putting (he Pieces Together 

Having defined the marking and compaction phases. 

the basic garbage collection algorithm now becomes 

simply 

garbage^collectionC ) 

\ 

marking— phase ( ) ; 
compaction.phase( ) ; 
I 

This concludes the basic garbage collection algorithm. 

OPTIMIZATIONS OF GARBAGE COLLECTION 
FOR WAM 

Early Reset of Variables 

As shown by the following Prolog program, some data 
structures will be created which are not useful, but 
which will be marked anyway by (he basic garbage 
collection algorithm. 




If not already marked, the variables 
referred from here may t)e set to unbound 



RGURE 22. If Not Already, Computation Stele Where Early Reset May Be Applicable 
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te6t(B) 

J- P(A, B). 
P(A, B) 

create_a_big_structure(A) , q(B), 
P(A, B) 

soiaeLhlng(A) , r(B). 

If the query. ? - test(B).» Is posed, a choice point 
will be created for the second clause of p. Then 
create-a-bi9.stcucture( A) is called which sets 
A to refer to a very big structure. If A is not accessible 
through the active environment chain, Ihis big struc- 
ture is no longer needed when q ( 6 ) is called. How- 
ever, from the choice point createdi A.is still reachable, 
and thus also the big structure. 

How can the marking phase be modified to handle 
this situation? Let us examine the marking code once 
again. First all argument registers and all environments 
reachable from the current environment are marked. 
Then all choice points and environments reachable 
from these choice points are marked. Out some of those 
variables will be reset before we backtrack to the latest 
choice point! The solution seems to be to reset those 
variables, if they are unmarked, now, before marking 
the choice point. (See Figure 22.) 

The argument can be repeated for each choice point: 
unmarked variables referred to from trail entries 
younger than the choice point are reset before marking 
the choice point. This is possible to do as those vari- 
ables are only reachable after backtracking, at which 
point they will be reset anyway. 

To implement the early reset of variables, 
mark^choicepoints now becomes instead 

mack^choicepoints(cp) 
struct warn *cpi 



I 

struct valuecdll •*t j 

t = T; 

trallcells.deleted « 0; 
while (cp 9£ NULL) 
( 

while {t > cp ^ T) 

I 

if ( (tt ) m == FALSE) 

I 

resett^t) ; 

t*t) « HULL; 

traileells.deloted 

= trailcells.deleted ^ 1; 

I 

t = t - 1, 
I 

mark—environments ( cp ^ Z, 

env..size(cp L) ) ; 

for each v pointin9 to a valuecell 

in 

cp — » A do 

nidr)cvariable( V) ; - 

I 

cp « cp — I Bj 

) 

The procedure reset (x) sets the value cell x to un- 
bound. Trail entries pointing to variables being reset 
are set to NULL as they are no longer needed. Thus, 
these trail entries could be discarded and the trail com- 
pacted. If this is done, entries in the trail will be moved 
and the corresponding pointers into the trail from the 
choice points have to be updated. The trail must be 
scanned from trail^low to T in order to compact the 
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Irail toward the lower addresses. Ideally, the choice 
poials wuuld be aiuanited and updated simultaneously. 
However, this is not possible as they are linked in the 
opposite direction. 

One of many possible solutions to this problem is 
first to scan the choice points from high to low ad- 
dress, updating the trail pointers T of the choice* 
points, and then to compact the trail going from low to 
highaddress. When scanning the choice points, the 
trail cells are also scanned, decrementing the 
counter trailcells.deleted for each discarded 
trail entry. By subtracting the current value 
trailcelXs.deleted from the T Geld of the choice 
point visited, that field will contain the address of the 
relocated trail cell; see Figure 23. 

After mdrk.choicepoints has been called, the 
new procedure collect.trail is called, which lirst 
updates the choice points and then compacts the trail. 

coXIect.trailO; 
I 

update^choicepoints ( ) ; 

compact.tcail( ) ; 

I 

update.chOLcepointst ) ; 
I 

struct choicepoint *cpi 
struct valueceli •'t; 
cp = B; 
t = T; 

While (cp ^ NULL) 
I 

while (fc > cp -* T) 
I 

if (Ct) NULL) 

trallcells.deleted 

= trailceHs-deleted - 1; 
t = t - 1? 
1 

cp — i T.« cp — T - trailcells_de- 
leted; 

cp = cp — B; 



compact.trail( ) 
I 

struct valueceli "'dest, **current; 
dest = trail.low; 
. for current = trail^low up to T 
if (('current) ^ NULL) 
( 

(Meet) = (*current)j 
dest = dest + 1; 
j 

T « dest - 1 J 
I 

A method closely related to early reset called virtual 
backtracking has previously been described by Bekkers 



(2), Bruynooghe (4) and Pittomvils (13). However. In 
virtual backtracking the variables are not reset and the 
entries in the trail are not removed. 

SEGMENTED GARBAGE COLLECTION 
It is possible to divide the data areas of Prolog into 
segments for which garbage collection can be per- 
formed independently. When a choice point is created 
on the stack, all currently acUve argument registers are 
copied into that choice point, fixing all structures ac- 
cessible from these variables. Structures in the heap 
that are not garbage at that moment will remain non- 
garbage until the choice point is removed upon back- 
tracking. To take advantage of this we divide the main 
data areas into segments. A new segment is started in 
the stack, heap, and trail after a choice point is placed 
on the stack. Only segments for which garbage collec- 
tion has not been performed or segments that have 
been reopened upon backtracking need to be collected. 

Segmented garbage collection can be implemented 
using one extra variable. OCB, which points to the 
choice point ending the oldest segment for which gar- 
bage collection has been performed. When garbage col- 
lection is performed. GCB is reset to the youngest 
choice point in the stack. During execution, when a 
choicepoint is removed, if B points to an older choice 
point than GC^B, GO J is reset to B. Alternatively, to 
avoid this overhead during execution, a special bit may 
be set in each choice point which has taken pari in a 
garbage collection. GCB then corresponds to the 
youngest choice point having (his bit set. For simplicity, 
we ignore this optimization. 

Figure 24 shows a typical situation during execution. 
The stack, trail, and heap are divided into two seg- 
ments, new and old, by the choice point referred to by 
GCJ. 

In order to make a correct marking, we need to find 
all pointers going from the old segment to the now 
segment. The only pointers of this kind are pointers* 
from the stack or the heap to the heap. All those point- 
ers may be found without scanning the whole old seg- 
ment since they are always recorded on the trail as 
shown in the figure. This is guaranteed by the fact that 
there is at least one choice point, the GCB choice 
point, which lies "between" the two cells. The unifica- 
tion algorithm always records such pointers on the 
trail, since they have to bo reset upon backtracking. 
Thus the marking phase only needs to examine the 
new segment and the cells in the old se^ent referred 
from the new trail. 

However— and this is the only drawback of seg- 
mented garbage collection— some of the pointers going 
from the old heap to the new heap would normally be 
reset by the "early reset" mechanism described earlier. 
The segmentation mechanism prevents this since all 
value cells in the old segment are considered equally 
reachable, and we cannot know whether a certain cell 
on the old heap is reachable from the new segment. 
Thus early reset is disabled for the old segment. 
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T H 
Stack Trail Heap 

RGURE 24. A Possible Situation Where Stack, TraS, and Neap are Divided into Two Segments 



Changes to the Marking 

A pointer f points to the heap if p ^s^GC^fi^H, it 
points to the old stack if P<GCB, and it points to the 
old trail if p :S GC _B— Wft get the following modifi- 
cations of the marking phase. 

In nack^enviconments the while*loop instead be- 
comes 

while (env ^ NtJLL AND env points 

to the new stack) 

As mentioned, all pointers going from the old heap to 
the new heap are found oh the new trail. Before calling 
marK.cholcepolnts in the procedure marking., 
phase, the procedure mark.trail is called. 

inar)ctrail ( ) 
I 

struct valuecell •*t; 
struct valuecell temp; 
t = T? 

while (t > GC-B ^ T) 
• I 

if ((*t) points to the old heap OR 
(*t) points to the old stack) 
I /• {'*t) may point to new 

heap V 

temp - "t; 

mar)cvariable(atemp) ; 



I 



I. 



In mark-choicepoints we instead get 



while (cp NULL 

AMD cp is not older than gcB) 
( 

while (t > cp -* T) 
I 

if ( (*t) does not point to the old 
heap 
AND 

<'t) does not point to the old 

stack 

AND 

(•t) ^ in ~ FALSE) 
( 

reset (•t) ; 
(*t) « NULL; 
trailcells^deleted = 
trailcells^deleted + 1; 
I 

t = t - 1; 
I 

mark— envi ronments (cp — * E, 

env_si2e(cp l) ) j 
for each v pointing to a valuecell 

in cp — » A do roark.variable(v) ; 



In mark-variabie the test in the forward mode 
becomes 

forward: if (current m = TRUE) goto 
backward ; 

current — m * TRUE; 

total«jnarked = total_marked + I; 

if (next points to the old heap) goto 

backward; 
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which reflects the idea lhal all objects in (he old heap 
segment are to be considered marked and should not be 
touched. 

Changes To the Compaction Phase 
Since only (he new heap will be compacted, only point* 
ers into the new heap need to be considered for upda(- 
ing. Thus, pointers to (he old heap should not be con- 
sidered. The test In (he procedure push^registers 
therefore becomes 

if (All) —value points to the new heap) . . . 

The procedure sweep-.trail now only sweeps the 
new trail, putting ail entries pointing (o (he new heap 
into (he relocation chain as before (case a in Figure 25). 
Treil entries pointing to the old segment do not need to 
be upda(ed as the old segment will not be moved by 
compaction (cases b» c» and d). However, if the old heap 
or stack cell refers to the new heap (cases b and d). that 
cell needs to be updated. 



old segment 


& 

d 










] 


new segment 










) TT T 





T 

Stack Trail Heap 



FIGURE 25. Possible Situations Encountered WhQe Sweeping (he Treil 

A modified version of sweepL.traiI, which (akes 
care of (hose special cases* now looks like this: 

sweep trail ( ) 
I 

"struct valuecell •'current; 

for current = T down to GC^B — ► T + 1 
if < ('current) is a new heap 
pointer) 

into.relocation^chain 
((•current), current); 
else it (('current) is an old heap 
or stack pointer AND 
(••current) is a new heap 
pointer) 
into— reloeation^ehein 
( (^♦current ) , 
(♦current) ) ; 

I 



The modificadons needed for sweep^environments 
and sweep-choicepoints ere qui(e similar. By 
adding a (est env points to the new stack and 
cp points to the new staclc. respectively, to the 
main while*loops, only the new stack will be scanned. 
The tests for references to the heap are changed into 
tests for references to the new heap. 

DISCUSSION 

It is interesting to compare our marking algorithm to 
ThorRlli's [12], which alsn uses a pointer revBrsfll tech- 
nique not needing any extra storage for the traversal 
besides one ceil per object. This extra cell contains a 
counter indicating how far the object has been marked. 
If the largest objec( contains n cells, the counter must 
contain at least flogs n1 bits, if many objects are close to 
the maximum objec( size, Thorelli's melhod clearly be- 
comes superior to our method where two bits are 
needed for each cell. However, most objects in Prolog 
are much smaller than the largest one. The main rea- 
son for not using Thbrelli's approach is that it does not 
seem possible to extend his scheme to mark just parts 
of an object. 

In one of the first described garbage collection algo- 
rithms specifically for Prolog by Warren [15], the outer 
unmarked parts of an object may be freed, but not the 
inner unmarked parts surrounded by marked cells. 
This limitation seems inherent in implementations 
based on "structure sharing.** A source of inspiration 
for our work has been the series of publications by 
Bruynooghe (3-5J leading to Pittomvils (13], where the 
ideas of virtual backtracking [2] and segmented garbage 
collection (0] have been incorporated. 

The main novel result of this article is the marking 
algorithm, which needs only (wo bits per word and no 
ex(ra stack space. It also has the capability of marking 
only the parts of a structure that are reachable. An- 
other novelty is the concept of ** early reset of vari- 
ables,** instead of virtual backtracking. By resetting a 
variable ("early reset"), instead of indicating that what 
it points to should not be marked ^virtual backtrack- 
ing"), we are able to compact the trail, as some trail 
entries are no longer needed, 'i'he paper gives a fairly 
detailed description of how to implemen( the various 
parts of the garbage collection algorithm, including how 
to adapt it to segmented garbage collection. The com- 
paction algorithm presented here is proportion a I to the 
size of the heap, not to the number of reachable ob- 
jects. Given a program which generates a lot of garbage, 
a significant amount of lime may be spent in the com- 
paction phase. Adding a new phase inserted between 
marking and compaction which links the marked ob- 
jects using the unmarked objects as link-nodes, would 
enable the compaction phase to just scan tho marked 
cells. Such an intermediate phase can be made propor- 
tional to n logrr, where n is the number of marked cells 
(11). 

The question of completeness naturally arises, that is, 
does the algorithm find and deallocate all garbage. For 
deterministic languages the question is easy to answer, 
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but for a nondeterministic language it becomes more 
complex since the machine contains many frozen 
states. Without giving a proof we claim the garbage 
collection algorithm presented (with "early reset" but 
without segmentation) is complete In the following 
sense: Assume that we had a WAM machine that could 
"fork" itself at each choice point. Each machine would 
then execute deterministically, not having any choice 
points at all. A set of such machines corresponds to the 
state of an ordinary WAM machine having choice- 
points. The objects reachable in all these machines cor- 
respond exactly to those objects we consider reachable 
in our algorithm. 

This does not mean, however, that we have re* 
claimed all possible storage. The "single assignment" 
property of Prolog makes more semantical optimiza- 
tions possible. For instance, chains of variables may be 
collapsed, making it possible to deallocate the interme- 
diate cells and thus also speed up execution later. 

Another storage optimization would be to Hnd ob- 
jects of exactly the same structure and collapse all 
these objects into one canonical representative. By hav- 
ing a special "canonical" bit in the pointer to those 
objects, the unification of two such objects just be- 
comes a pointer comparison. Finding all equal objects is 
possibly too time consuming for this optimization to be 
worthwhile, but this remains to be investigated. 
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